home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / www / cache2file.lha / Cache2file.p < prev    next >
Encoding:
Text File  |  2000-09-26  |  3.6 KB  |  178 lines
  1. ; 
  2. ; 
  3. ; (c) 2000 Cyborg 
  4.  
  5.     {* Include sys:coder/preass/Options.p *}
  6.     {* Include sys:coder/preass/Prozeduren.p *}
  7.  
  8.     {* String: Version="$VER: (C) CYBORG 2000"*}
  9.     
  10.     {* IncBlock: Seekpattern,250*}
  11.  
  12.  
  13. LastSign[a0]:
  14.     cmpi.b #0,(a0)+
  15.     bne LastSign
  16.     lea -2(a0),a0
  17.     cmpi.b #"/",(a0)
  18.     bne .rts
  19.     move.l #"/ind",(a0)+
  20.     move.l #"ex.h",(a0)+
  21.     move.l #$746d6c00,(a0)+
  22. .rts:
  23.     rts
  24.  
  25.  
  26. CopyFile[a0,a1]:
  27.     {* StackFrame in,out,anz,InName=a0,Outname=a1*}
  28.     movea.l a1,a2
  29.     moveq.l #0,d7
  30. .l0:
  31.     cmpi.b #0,(a2)
  32.     beq .l1
  33.     cmpi.b #":",(a2)
  34.     beq .l02
  35.     cmpi.b #"?",(a2)
  36.     beq .l02
  37.     cmpi.b #"/",(a2)
  38.     bne .l01
  39.     addq.l #1,d7
  40. .l01:
  41.     lea 1(a2),a2
  42.     bra .l0
  43. .l02:
  44.     move.b #"_",(a2)
  45.     bra .l0
  46. .l1:
  47.     cmpi.l #0,d7
  48.     beq .ende
  49. ;    subq.l #1,d7
  50.     moveq.l #0,d6
  51. .l2:
  52.     addq.l #1,d6
  53.     cmpi.l d6,d7
  54.     beq .Copy
  55.     moveq.l #0,d5
  56.     move.l Buffer2,a3
  57.     move.l a1,a2
  58.     cmpi.l #"http",(a2)
  59.     bne .ftp
  60.     move.l #"p__/",3(a2)
  61.     bra .los
  62. .ftp:
  63.     move.l #"p__/",2(a2)
  64. .los:
  65.     cmpi.b #"/",(a2)
  66.     bne .l3
  67.     addq.l #1,d5
  68.     cmp.l d5,d6
  69.     beq .makedir
  70. .l3:
  71.     move.b (a2)+,(a3)+
  72.     bra .los
  73. .makedir:
  74.     move.b #0,(a3)+
  75.     push d0-a5
  76.     If Createdir(buffer2)#0
  77.      {
  78.        unlock(d1)
  79.      }
  80.     pop d0-a5
  81.     bra .l2
  82. .copy:
  83.     Printf("%s\n",*OutName)
  84.     lastsign(outname)
  85.     If (in=open(InName,mode_old))#0
  86.      {
  87.       if (out=open(OutName,mode_new))#0
  88.         {
  89.           anz==10000
  90.           While anz=10000
  91.            {
  92.             anz=Read(in,Filebuffer,10000)
  93.             Write(out,Filebuffer,anz)
  94.            }
  95.           Close(out)
  96.         }
  97.       close(in)
  98.      }
  99. .ende:
  100.     {* Unframereturn *}
  101.  
  102. ceol[a0]:
  103.     cmpi.b #$0a,(a0)
  104.     bne .l1
  105.     move.b #0,(a0)
  106. .l1:cmpi.b #0,(a0)+
  107.     bne ceol
  108.     rts
  109.     
  110.  
  111. Start:
  112. ;    copymem("www.garfield.com",&Filename,?)
  113.     buffer=malloc(1024)
  114.     buffer1=malloc(1024)
  115.     Buffer2=malloc(200)
  116.     If Getfilename()#0 
  117.      {
  118.        grep==1
  119.        Copymem(&Filename,&Seekpattern,250)        
  120.      }
  121.     FileBuffer=malloc(10000)
  122.     If (Filehandle=Open("env:Aweb3/network",mode_old))#0
  123.      {
  124.        While Fgets(Filehandle,Buffer,1024)#0
  125.         {
  126.           Wort=.l0(Buffer)
  127.           if Wort=#"CAPA" 
  128.            {
  129.              Copymem(Buffer+5,&Filename,240)
  130.              ceol(&Filename)
  131.            }
  132.         }
  133.        Close(Filehandle)
  134.        FIB=malloc(400)
  135.        FIB1=malloc(400)
  136.        FillBuffer(FIB,0,400)
  137.        FillBuffer(FIB1,0,400)
  138.        FillBuffer(Buffer,0,1024)
  139.        If (Dirlock=Lock(&Filename,Access_read))#0 
  140.         {
  141.           OK=Examine(Dirlock,FIB)
  142.           While Exnext(Dirlock,FIB)#0
  143.            {
  144.              type=.l4(FIB)
  145.              if type>0 
  146.               {
  147.                zeiger=8(FIB)
  148.                Copymem(&Filename,Buffer,250)
  149.                addpart(buffer,zeiger,1024)
  150.                FillBuffer(Buffer1,0,1024)
  151.                If (Dirlock1=Lock(Buffer,Access_read))#0
  152.                 {
  153.                   FillBuffer(Buffer1,0,1024)
  154.                   OK=Examine(Dirlock1,FIB1)
  155.                   While Exnext(Dirlock1,FIB1)#0
  156.                    {
  157.                     zeiger=8(FIB1)
  158.                     Copymem(Buffer,Buffer1,250)
  159.                     addpart(buffer1,zeiger,1024)
  160.                     zeiger=144(FIB1)
  161.                     If Grep=0 
  162.                      {
  163.                       CopyFile(Buffer1,Zeiger)
  164.                      }
  165.                     If grep=1 and Stringfind(Zeiger,&Seekpattern)#0
  166.                      {
  167.                       CopyFile(Buffer1,Zeiger)
  168.                      }
  169.                    }
  170.                   UnLock(Dirlock1)
  171.                 }
  172.               }
  173.             }
  174.           UnLock(Dirlock)
  175.         }
  176.      }
  177.     {* Return *}
  178.